From bcd54802d58f297e4b664a00af12452e91da3687 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Jun 1993 23:43:57 +0000 Subject: [PATCH] (etags-tags-completion-table): When skipping the noise before the tag name, let it end with any char not allowed in a tag. --- lisp/progmodes/etags.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 70dcd9a557d..e72fdb3e7cd 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -915,7 +915,8 @@ See documentation of variable `tags-file-name'." ;; \6 is not interesting; ;; \7 is the explicitly-specified tag name. (while (re-search-forward - "^\\(\\(.+[ \t]+\\)?\\([-a-zA-Z0-9_$]+\\)[^-a-zA-Z0-9_$]*\\)\177\ + "^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$]+\\)\ +\[^-a-zA-Z0-9_$]*\\)\177\ \\([0-9]+\\),\\([0-9]+\\)\\(,\001\\([^\n]+\\)\\)?\n" nil t) (intern (if (match-beginning 6) -- 2.30.2